

^23 



IN THE UNITED STATES PATENT AND TRADEMARK OFFICE 



►plicants : 



Paul Freiberger et al. 



Assignee : 



Interval Research Corporation 



Title: 



Attention Manager for Occupying the Peripheral 
Attention of a Person in the Vicinity of a Display 
Device 



Serial No . : 



08/620, 641 



Filed: March 22, 1996 



Examiner: 



Jeffery A. Brier 



Group Art Unit: 2775 



Attorney Docket No.: IR-003 



Assistant Commissioner for Patents 
Washington, D. C. 202 31 



DECLARATION OF PHILIPPE P. PIERNOT 
UNDER 37 C.F.R. § 1. 131 



I, Philippe P. Piernot, hereby declare that: 

1. I am an inventor of the invention of the above- 
referenced patent application. 

2. Prior to October 19, 1995, I developed a computer 
program, an Applescript source code listing of which is attached 
hereto as Exhibit 1, that, together with the capabilities of 
conventional Internet browser software, acquired content data 
from a World Wide Web site and displayed an image generated from 
the content data as "wallpaper" on a display device of the 
computer ("content display computer") on which the computer 
program was executing. The browser software included a 
capability that allowed a user to select an image displayed at a 
Web site so as to cause the content data representing the image 
to be transferred from a data storage device of the Web site to 
the content display computer and stored at a user-designated 
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location of a non-volatile data storage device of the content 
display computer. In Exhibit 1, the user-designated location at 
which content data was stored is indicated at line 5. Line 6 
caused execution of a set of instructions (see lines 23-34) that 
display an image or images generated from the content data. 
Line 29, together with lines 35-62, caused content data to be 
retrieved by the content display computer from an appropriate 
World Wide Web site. In particular, lines 39-41 identified 
multiple sets of content data to be retrieved (and displayed) - 
Lines 50-54, together with lines 7 9-^2<rrcaused the sets of 
content data to be successively retrieved and stored (see, in 
particular, line 87). Sets of content data were retrieved in 
alphabetical order of the name of the file containing the content 
data, in accordance with the manner in which an Applescript 
computer program orders a list of files within a folder defined 
on a data storage device (see line 37). Line 30, together with 
lines 63-78 and lines 134-161, caused identification of the 
format of a set of content data and display of the set of content 
data in accordance with the identified format. In the computer 
program shown in Exhibit 1, sets of content data in either the 
JPEG format (see lines 140-148) or the GIF format (see lines 150- 
159) could be used to generate an image display. Lines 31-33 
caused the retrieved content data to be used to generate a 
display of the corresponding image or images: in particular, 
line 32 caused execution of a computer program called DeskPicture 
(a commercially available shareware computer program, produced by 
Peirce Software, that generated a display of an image as 




"wallpaper" on a computer display screen) that accessed a set of 
content data from the appropriate (previously identified; see 
line 5, discussed above) location on the non- volatile data 
storage device and produced the corresponding image display. A 
set of content data was used to generate a display until a new 
set of content data was to be used to generate a display (the 
DeskPicture computer program included capabilities for displaying 
images generated from multiple sets of content data and 
specifying how long each set of content data was to be used to 
generate a display of an image) , an updated version of the set of 
content data was to be used to generate a display, or operation 
of the computer program shown in Exhibit 1 terminated. Lines 10- 
22 caused the browser software to periodically retrieve (in 
Exhibit 1, every 5 minutes) and display an updated set of content 
data corresponding to a set of content data previously retrieved 
from a Web site. (An updated set of content data could be the 
same as the corresponding previously retrieved set of content 
data. ) 

3. Prior to October 19, 1995, I caused a computer- 
executable form of the computer program shown in Exhibit 1 to be 
stored on a first computer ("application management computer"). 
The application management computer was connected, using 
conventional hardware and software adapted for such purpose, to a 
second computer ("content display computer") such that 
instructions and/or data could be transferred from the 
application management computer to the content display computer. 
The presence of the computer-executable version of the computer 
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program on the application management computer was displayed on a 
display device of the content display computer. The content 
display computer was operated in accordance with conventional 
software that enabled a user of the content display computer to 
request transfer of the computer program from the application 
management computer to the content display computer and 
installation of the computer program on the content display 
computer. The content display computer was additionally 
connected, using conventional hardware and software adapted for 
such purpose, to the Internet computer network, such that the 
content display computer could be operated in accordance with 
conventional browser software to enable a user of the content 
display computer to select an image displayed at a Web site 
accessible via the Internet computer network so as to cause the 
content data representing the image to be transferred from a data 
storage device of the Web site to the content display computer 
and stored at a user-designated location of a non-volatile data 
storage device of the content display computer. 

4. Prior to October 19, 1995, I caused a computer- 
executable form of a second computer program, similar to the 
computer program shown in Exhibit 1 (the "first computer 
program") and having capabilities similar to those described 
above in paragraph 2 of this Declaration, to be stored on the 
application management computer discussed above in paragraph 3 of 
this Declaration. The presence of the computer-executable 
version of the second computer program on the application 
management computer was displayed on a display device of the 
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content display computer. The content display computer discussed 
above in paragraph 3 of this Declaration was operated in 
accordance with conventional software that enabled a user of the 
content display computer to request transfer of the first or 
second computer program from the application management computer 
to the content display computer and r installation of the first or«- 
second computer program on the content display computer. The 
second computer program differed from the first computer program 
in that the types of format of a set of content data that could 
be displayed were different from the types of format of a set of 
content data that could be displayed by the first computer 
program. 

5. Prior to October 19, 1995, I developed a computer 
program, a MacroMedia Director source code listing of' which is 
attached hereto as Exhibit 2, that, together with the 
capabilities of an Applescript program that I developed 
(described further below) and conventional Internet browser 
software, acquired content data from a World Wide Web site and 
displayed an image generated from the content data as a "screen 
saver" on a display device of the computer ("content display 
computer") on which the computer program was executing. The 
content display computer was operated in accordance with 
version 7 of the Macintosh™ operating system. The browser 
software included a capability that allowed a user to select an 
image displayed at a Web site so as to cause the content data 
representing the image to be transferred from a data storage 
device of the Web site to the content display computer and stored 
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at a user-designated location of a non-volatile data storage 
device of the content display computer. In Exhibit 2, the user- 
designated location at which content data was stored is indicated 
at page 2, line 7. Lines 33-49 on page 6 of Exhibit 2 are a set 
of instructions that determined whether the screen saver was to 
be displayed or not. In particular, lines 38-43 prevented the 
screen saver from being displayed, while lines 45-46 caused the 
screen saver to be displayed if greater than a specified duration 
of time (which was user-specified in the computer program shown 
in Exhibit 2; see line 45 on page 6 of Exhibit 2 and control 
option 303 in Exhibit 3, discussed below) without interaction 
with the content display computer (an "idle period") had 
occurred. Lines 5-32 on page 2 of Exhibit 2 caused the display 
of one or more images generated from one or more sets of content 
data. More particularly, lines 5-12 on page 2 of Exhibit 2 
determined which set of content data was to be used to generate 
image (s): each set of content data was used to generate images 
for a specified amount of time (which was user-specified in the 
computer program shown in Exhibit 2; see line 5 on page 2 of 
Exhibit 2 and control option 304 in Exhibit 3, discussed below). 
Lines 13-30 on page 2 of Exhibit 2 produced an image display from 
the set of content data identified in lines 5-12. Lines 33-38 on 
page 2 of Exhibit 2 caused, if appropriate, the screen saver to 
be turned off again. When the screen saver was turned off, the 
display shown in Exhibit 3 (discussed below) was produced on the 
display device of the content display computer using a display 
screen image definition file as defined using MacroMedia Director 
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constructs adapted for that purpose (see line 37 on page 2 of 
Exhibit 2) . Lines 9-30 on page 6 of Exhibit 2 caused the 
computer program to periodically retrieve (in the computer 
program shown in Exhibit 2 , within a daily ten minute window 
beginning at a user-specified time; see lines 10-17 on page 6 of 
Exhibit 2 and control option 305 in Exhibit 3, discussed below) a 
set of content data corresponding to Web site image (s) previously 
selected by a user (see lines 19-23 on page 6 of Exhibit 2) . 
This periodic retrieval of content data occurred only when the 
screen saver was turned on (see lines 4-8 on page 6 of Exhibit 2, 
together with the above-mentioned lines 9-30 on page 6 of 
Exhibit 2) . The actual retrieval of content data was 
accomplished at line 23 using an Applescript computer program 
called " fetchlmages" (which is not shown as part of Exhibit 2) 
that accessed the user-designated location (s) of the non-volatile 
data storage device of the content display computer at which 
content data was stored to identify the World Wide Web site(s) 
(identification (s) , e.g., URL(s), of which were stored together 
with the corresponding content data) from which the content data 
was obtained, then caused the browser software to retrieve 
content data from those site(s). I developed "fetchlmages," 
which embodied the functionality of lines 29, 30, 35-62, 63- 
78,' 79-120 and 134-161 of the computer program shown in 
Exhibit 1, to enable the Macromedia Director computer program 
shown in Exhibit 2 to make use of the browser software to 
transfer set(s) of content data from Web site(s) to the content 
display computer. (The Macromedia Director computer program 
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shown in Exhibit 2 could not communicate directly with the 
browser software, but could communicate with an Applescript 
computer program. ) 

6.. Exhibit 3 depicts a display produced on the display 
device of the content display computer referred to above in 
paragraph 5 by the computer program shown in Exhibit 2 (see 
line 37 on page 2 of Exhibit 2, discussed above) when the screen 
saver was turned off. The display provided a graphical mechanism 
for enabling a user of the content display computer to control 
aspects of the operation of the computer program shown in 
Exhibit 2. A dialog box (designated by the numeral 301 in 
Exhibit 3) within the display included four control options that 
each enabled control of a corresponding aspect of the operation 
of the computer program shown in Exhibit 2. The first control 
option (designated by the numeral 302 in Exhibit 3) enabled the 
user to specify whether the screen saver would be displayed after 
detection of an idle period. The second control option 
(designated by the numeral 303 in Exhibit 3) enabled the user to 
specify the duration of time without interaction with the content 
display computer which had to pass before the screen saver would 
be displayed. The third control option (designated by the 
numeral 304 in Exhibit 3) enabled the user to specify the 
duration of time for which each set of content data would be used 
to generate an image display during operation of the screen 
saver. The fourth control option (designated by the numeral 305 
in Exhibit 3) enabled the user to specify the time at which to 
begin retrieval each day of set(s) of content data corresponding 
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to Web site image (s) previously selected by a user. 

7. Prior to October 19, 1995, I developed a computer 
program, an Applescript source code listing of which is attached 
hereto as Exhibit 4, that, together with the capabilities of 
conventional Internet browser software, acquired content data 
from a World Wide Web site and displayed an image generated from 
the content data on a display device of the computer ("content 
display computer") on which the computer program was executing. 
The browser software included a capability that allowed a user to 
select an image displayed at a Web site so as to cause the 
content data representing the image to be transferred from a data 
storage device of the Web site to the content display computer. 
In Exhibit 4, line 4 caused execution of a set of instructions 
(see lines 21-28) that, in turn, caused the execution of still 
other sets of instructions to display an image or images 
generated from the content data. Depending on the type of 
content data acquired, the image was displayed as "wallpaper" 
(see line 25 and lines 29-49) or in a display area dedicated to 
the browser software (see line 26 and lines 50-64) . In the 
former case (i.e., lines 25 and 29-49), lines 44 and 67-89 caused 
content data to be retrieved by the content display computer for 
use in generating an image display. After acquisition of the 
content data, the content data was stored at a user-designated 
location of a non-volatile data storage device of the content 
display computer. Lines 46-48 caused the retrieved content data 
to be used to generate a display of the corresponding image or 
images: in particular, line 47 caused execution of the computer 
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program called DeskPicture , as described above in paragraph 2, 
that produced the image display. In the latter case (i.e., 
lines 2 6 and 50-64) , the computer program shown in Exhibit 4 did 
not cause content data to be stored on the non-volatile data 
storage device of the content display computer, but only used the 
content data to generate an image display immediately upon 
acquisition . 

8. The acts described above in numbered paragraphs 2 
through 7 were carried out in the United States. 

9. I hereby declare that all statements made herein of my 
own knowledge are true and that all statements made on 
information and belief are believed to be true; and further that 
these statements were made with the knowledge that willful false 
statements and the like so made are punishable by fine or 
imprisonment, or both, under Section 1001 of Title 18 of the 
United States Code and that such willful false statements may 
jeopardize the validity of the application or any patent issued 
thereon. 



Date : 





Philippe P. Piernot 
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I property justLoaded : false 
Z property folderPath : "■ 
3 property triggerMin : 0 



H on run 

5 set folderPath to ((path to (the preferences folder)) as string) & "WebPictures:" 
C dolt() 

7 set triggerMin to ((time of (current date)) / minutes) + 5 

* set justLoaded to true 

7 end run 



lo on idle 



U set mins to (time of (current date)) / minutes 
>i If mins > triggerMin + 5 then 
/ 3 if justLoaded then 

set justLoaded to false 
IS end If 

fd> else 

J 7 If not justLoaded and mins £ triggerMin then 

</? dolt() 

I? se * triggerMin to ((time of (current date)) / minutes) + 5 

—set justLoaded to true 
2.0 end if 

end if 



end idle 



13 on dolt() 

if set wasDeskPictureRunning to isProcessRunning("CLY7") 

15 if wasDeskPictureRunning then 

Jfe tell application "DeskP/c^re* to quit 

l ' end If 

W set fileList to (list folder folderPath) 

W fetchAIIPicturesln(folderPath) 

convertToPictAIIPicturesln(folderPath, fileList) 

^ ' • if wasDeskPictureRunning then 
l\ tell application "De^Picr urft" to run 

end If 
end dolt 



37- on fetchAIIPicturesln(folderPath) 

set wasFrontierRunning to isProcessRunning("LAND") 

10 set fileList to (list folder of folderPath) 

3t set urIList to {} 

y<\ repeat with fileName in fileList 

i\ o set urIList to urIList & getFileComment(alias (folderPath & fileName)) 



H , end repeat * j f 

^2 if not wasFrontierRunning then 

tell application " Frontier" to quit 

Y>y end if 

f y set wasNetscapeRunning to isProcessRunning("MOSS") 
~ Asks Netscape not to display alert boxes 
tell application "Netscape Navigator™ 3.0" 

set netscapeAlertApp to the alert application 
set alert application to "zzzz" 
iyq end tell 

fQ repeat with i from 1 to (length of fileList) 
f \ set fileName to item i of fileList 

9 1 set myURL to item i of urIList 

netscapeGetURL(myURL, (folderPath & fileName & "1"), 5, 300) 
5H end repeat 

pf if wasNetscapeRunning then 

•• Resume Netscape alert boxes display handling 
$L tell application "Netscape Navigator™ 3.0" 

?1 set alert application to netscapeAlertApp 

f% end tell 

fq else 

4& tell application "Netscape Navigator™ 3.0" to quit 

4>i end if 

L> z. end fetchAIIPicturesIn 



on convertToPictAIIPicturesln(folderPath, fileList) 

it set wasClip2GifRunning to isProcessRunning("c2gf") 

4V set wasJPegViewRunning to isProcessRunning("JVWR") 

(oh repeat with fileName in fileList 

61 set fileAlias to (alias (folderPath & fileName)) 

65 convertToPict(folderPath & fileName & "1", fileName & "1") 

69 «event ScTIExch» (alias (folderPath & fileName & "1")) given «class with»:(fileAlias) 

10 «event ScTldele» (alias (folderPath & fileName & "1")) 

7 / end repeat 



71 if not wasClip2GifRunning then 

1] tell application "Cl,y>2£;f to quit 

7^ end if 

7j- if not wasJPegViewRunning then 
74 tell application " JPeolfou/ to quit 

77 end if ' 
y^end convertToPictAIIPicturesIn 



■NETSCAPE RELATED ROUTINES- 



l«l on netscapeGetURL(myLoc, destFile, nbOfTries, myTimeOut) 
$0 set errCounter to 0 

#1 repeat while errCounter < nbOfTries pQipt/L 



$1 tell application "Netscafijhavigator™ 3.0" Eviil't^ 

- with timeout of myTimeOut seconds *mmr \ 

repeat while the busy of window 1 * o 
end repeat 

' f £ set isLoaded to true 

|2 GetURL myLoc to (file destFile) 

| a set isLoaded to false 

jL repeat while not isLoaded 

2° tr y 

the busy of window 1 
^ set isLoaded to true 

'3 on error 

Vl end try 

end repeat 
end timeout 
11 try 

9*? if the file type of (info for (file destFile)) = "TEXT" then 

^ set errCounter to errCounter + 1 

«event ScTldele» destFile 

'«/ else 

{#2 return false - no error 

'P end if 

J6 >r on error 

set errCounter to errCounter + 1 
end try 
'•7 end tell 

^0? end repeat 
/09 return true error 
HO end netscapeGetURL 



III on «event WWW?PRBG» 

//i return 1 

//3 end «event WWW?PRBG» 

//ty on «event WWW?PRMK» 

//£- return 0 

//£ end «event WWW?PRMK» 

//7 on «event WWW?PREN» 
11$ set finished to true 
/fcj return 0 
l\0 end «event WWW?PREN» 



■FINDER RELATED ROUTINES- 



l%l on isProcessRunning(procString) 
HI repeat with processName in (list processes) 
1 1) if signature of (get process processName) = procString then 

liy return true 

/ XT end if 
ilt> end repeat 

return false p j 

y^end isProcessRunning \(K^- s 



on getFileComment(fileAlias) 
t3o tell application "F/WJer" 
/?/ Ifiie.getCommentl(fileAlias) 
end tell 

end getFileComment 



■PICTURE CONVERSION ROUTINE- 



on convertToPict(filePath, fileName) 

13 5~ tr y " We check whether the file exits 

I H set fileType to the file type of (info for (file filePath)) 

/?7 on error 

/3>? return 

l?<j end try 

Hi D if fileType = "JPEG" then 

fLj( tell application " TPej l/ tew / 

/ «ry 

/V? open (alias filePath} 

^ 74 save document 1 in (alias filePath) as picture 

* Hf close document 1 

itl* on error 

/Y7 end try 

l*tl end tell 

f*f<f else 

if fileType = "GIFf" then 
I Ft tell application "Clip2tf/f 

/^l try f 

f .tl open (file filePath) given «class fltp»:picture, «class kfil>»:(file (filePath & "2")) 

yJL «event ScTldele» (alias filePath) 

«event ScTIRena» (alias (filePath & "2")) given «class name»:fileName 
l ffe on error 

i*T end try 

' jg end tell 

{ fl end if 

l& end if 
tG/ end convertToPict 
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on exit Frame 

global gRunning, gLastScreenUpdate 

if desiredScreenSaverState( ) then 
set gLastScreenUpdate to 0 
initRearWindow( ) 
savePref erences ( ) 

installMenu — removes the menubar 

convertPicturesIf Needed ( ) 
activate ( ) 

set gRunning to TRUE 

go to frame "SlideShow" 
else 

go to the frame 
end if 
end exitFrame 




' on exit Frame 

Z global gScreenNumber, gScreenCastNum, gRunning, gLastActivity, gFolderPath, 

3 gLastScreenUpdate 

¥ if desiredScreenSaverStateO then 

5 if (the ticks - gLastScreenUpdate > 60 * value (the text of cast "DisplayTime" ) ) then 

^ set gScreenNumber to gScreenNumber + 1 

7 set folderPath to gFolderPath & "Screen Saver Files:" 

* set fileName to getNthFileNamelnFolder (folderPath, gScreenNumber) 

f if fileName = EMPTY then 

jo set gScreenNumber to 1 

'/ set fileName to getNthFileNamelnFolder (folderPath, gScreenNumber) 

/z. end if 



'3 if fileName <> EMPTY then 



if (getFileType( folderPath & fileName) starts -PICT") then 



// _ 

if the castNum of sprite 2 = 5 then 
/6 set gScreenCastNum to 6 

' 7 else 

' \ set gScreenCastNum to 5 

} 2 end if 

puppetSprite 2, TRUE 
° ?/ set the fileName of cast gScreenCastNum to folderPath & fileName 

A ^ set pict to the picture of cast gScreenCastNum — so that the castRect is 

updated 

J 3 set pict to 0 — just in case :-) 

A ^ set the castNum of sprite 2 to gScreenCastNum 

J ^ set the locH of sprite 2 to (the stageRight - the stageLeft - the width of cast 

gScreenCastNum) / 2 

set the locV of sprite 2 to (the stageBottom - the stageTop - the height of 
cast gScreenCastNum) / 2 

puppetTransition random (49) , 4, 10, FALSE 
set gLastScreenUpdate to the ticks 
^ end if 

2° end if 

end if 
3X go to the frame 
35 else 

3<f set gRunning to FALSE 
j<f releaseRearWindow ( ) 
3 (> installMenu cast "Menubar" 
3 7 go to frame "UI" 
jf end if 
end exit Frame 



UTILITY FUNCTIONS 

on filesln folderPath 
put [] into fileList 
repeat with i = 1 to the maxlnteger 

set fileName to getNthFileNamelnFolder (folderPath, i) 
if fileName = EMPTY then exit repeat 
append (fileList, fileName) 
end repeat 
return fileList 
end filesln 



on deleteFile filePath 

set filelOXObj to FileIO(mNew, "read", filePath) 

return filelOXObj (mDelete) 
end deleteFile 



on deleteContentOfFolder folderPath 
set fileList to filesln (folderPath) 
repeat with fileName in fileList 

deleteFile (folderPath & fileName) 
end repeat 

end deleteContentOfFolder 



on newUniqueFileNameln folderPath 
set counter to -1 
set done to false 

set fileList to filesln (folderPath) 
repeat while not done 

set counter to counter + 1 

if not getOne( fileList, "■ & counter) then 

set done to true 
end if 
end repeat 
return " M & counter 
end newUniqueFileNameln 



on replaceFilesKeepingComments srcFolderPath, dstFolderPath 
set srcFileList to filesln (srcFolderPath) 
set dstFileList to filesln (dstFolderPath) 
repeat with fileName in srcFileList 
if getOne (dstFileList, fileName) then 

set comment to getFileComment (dstFolderPath & fileName) 
deleteFile (dstFolderPath & fileName) 
moveFilei( srcFolderPath & fileName, dstFolderPath) 
setFileComment (dstFolderPath & fileName, comment) 
else 

moveFile( srcFolderPath & fileName, dstFolderPath) 
end if 
end repleat 
end moveFiles 



on getFileComment filePath 

set comment to GetComment (filePath) 

set zeroChar to numToChar ( 0 ) 

set theLength to the length of comment 

set done to false 

set i to 1 

repeat while not done 

if (i = theLength) or ((char i of comment) = zeroChar) then 
set done to true 



set i to i + 1 

end if 
end repeat 
if i <= 1 then 

return " ■ 
else 

return char 1 to i - 1 of comment 
end if 
end getFileComment 



on setFileComment filePath, name 

SetComment ( filePath, name) 
end setFileComment 



on renameFile filePath, newName 
set oldDelim to the itemDelimiter 
set the itemDelimiter to " : " 
set fileName to the last item of filePath 
set the itemDelimiter to oldDelim 

set folderPathEnd to (the length of filePath) - (the length of fileName) 
set foldPath to (char 1 to folderPathEnd of filePath) 

FSRename( filePath, foldPath & newName) 
end renameFile 



on moveFile filePath, dstFolderPath 
FSCatMove( filePath, dstFolderPath) 
end moveFile 



on getFileType filePath 

set filelOXObj to FileIO(rriNew, "read", filePath) 

set type to filelOXObj (mGetFinderlnfo) 

filelOXObj (mDispose) 

return type 
end getFileType 



else 





ExM> 2 




on isProcessRunning procString 
thePrograms ■ " , procString 

return charToNum(char 1 of the result) <> 0 
end isProcessRunning 



on activate 

open the moviePath & the movieName 
end activate 



on getSecondsSinceMidnight 
global gTimeObj 

return gTimeObj (mGetSecsSinceMidnight) 
end getSecondsSinceMidnight 




on idle 



£ global gRunning, gMode, gFolderPath, gFetched 

3 if gRunning then 

^ if not (desiredScreenSaverState() ) then 

5 set gRunning to FALSE 

6 releaseRearWindow ( ) 

7 ^ installMenu cast "Menubar" 
% go to frame "UI" 

9 else 

to set hours to value (the text of cast "hours") 

// if the text of cast "am/pm" = "PM" then 

/Z if hours < 12 then 

' 3 set hours to hours + 12 

/</- end if 

/ ^ end if 

lio set downloadTime to (3600 * hours) + (60 * value(the text of cast "minutes")) 

11 if gFetched = 0 and gMode = "Done" and getSecondsSinceMidnight ( ) > downloadTime and 
—i 

getSecondsSinceMidnight ( ) < (downloadTime + 600) then 

tQ set gFetched to the ticks 

/? deleteContentOf Folder (gFolderPath & "Temporary Files : downloaded: " ) 

2j> deleteContentOf Folder (gFolderPath & "Temporary Files : temp: ") 

27 deleteContentOf Folder (gFolderPath & "Temporary Files : converted: " ) 

22. set gMode to "FetchAndConvert" 

£3 open the moviePath & "Helper Apps : f etchlmages " 

ZH- else 

£5 if gFetched <> 0 and the ticks - gFetched > 36000 then — we should be done 

downloading 

26 set gFetched to 0 

^ 7 end if 

2? end if 

2^ end if 

3& end if 

3 i pass 
52 end idle 



33 on desiredScreenSaverState 

3*f global gLastActivity, gLastMouseH, gLastMouseV, gLastKeyCode, gKeyDetectorXObj 

35 set mH to the mouseH 
3 t> set mV to the mouseV 
3 7 set kc to the keyCode 

3? if not (the hilite. of cast "on/off") or the mouseDown or mH <> gLastMouseH or mV <> 

gLastMouseV -n or gLastKeyCode <> kc or gKeyDetectorXObj (mCheckKey) <> 0 then 
31 set gLastMouseH to mH 

40 set gLastMouseV to mV 

V/ set gLastKeyCode to kc 

V2 set gLastActivity to the ticks 

^■3 return FALSE 

else 

45 if the ticks - gLastActivity > 3600 * value(the text of cast "SleepDelay" ) then 

#6 return TRUE 

*/7 end if 

V? end if 

end desiredScreenSaverState 




5 0 on startMovie 

| ; ' global gMode, gTimeObj, gKeyDetectorXObj , gMiscXObj, gLastScreenUpdate, 

A gScreenDisplayTime, -i 

53 gScreenNumber, gRunning, gFolderPath, gFetched 

5^ set gScreenNumber to 0 

5 5 set gFetched to 0 

Sio set gRunning to FALSE 

5 7 set gMode to "Done" 

5 7 set the hilite of cast "on/off" to TRUE 

5 1 set gLastScreenUpdate to 0 
ioO set gScreenDisplayTime to 600 

set gTimeObj to TimeSinceMidnight ( mNew ) 
set gKeyDetectorXObj to KeyDetec tor (mNew) 

^3 set gMiscXObj to misc_x (mNew) 

<W set gFolderPath to gMiscXObj (mPref sFolder) & "NetScreen: " 

L5 installMenu cast "Menubar" 

(> t loadPref erences ( ) 

6 7 —put callBackFactory(mNew) into callbackObject 
to f — setCallBack RunOSAScript, callbackObject 

I ? — RunOSAScript ( "open** ) 
"70 end startMovie 

II on stopMovie 

72, global gTimeObj, gKeyDetectorXObj, gMiscXObj 

"73 savePref erences ( ) 

-74 if objectP (gTimeObj) then 

7 ^ gTimeObj (mDispose) 

nu end if 

17 if objectP (gKeyDetectorXObj) then 

7 ? gKeyDetectorXObj (mDispose ) 

7 °l end if 

if objectP (gMiscXObj) then 

i \ gMiscXObj (mDispose) 

% i- end if 

^3 releaseRearWindow( ) 



* T —RunOSAScript ( "close" ) 

— callBackFactory (mDispose) 
?lo end stopMovie 



?7 on convertPicturesIfNeeded 
global gMode, gFolderPath 

if gMode = "Done" then 



<?0 set files to f ilesToConvert ( ) 

?/ if files <> EMPTY then 

<?Z dele teContentOf Folder (gFolderPath & "Tenporary Files : downloaded: " ) 

^3 deleteContentOf Folder (gFolderPath & "Temporary Files: temp: • ) 

7^ deleteContentOf Folder (gFolderPath & "Temporary Files : converted: " ) 

?5 repeat with fileName in files 

moveFile (gFolderPath & "Screen Saver Files:" & fileName, -i 



^ gFolderPath & "Temporary Files : downloaded: " ) 



1? end repeat 

?9 set gMode to "Convert" 

t o ° open the moviePath & "Helper Apps : f etchlmages " 

' 0 9 end if 

' °Z end if 

' °3 end convertPicturesIfNeeded 

io*/' on f ilesToConvert 

/ OS global gFolderPath 

' °£ set folderPath to gFolderPath & "Screen Saver Files:" 

t 07 set fileList to fileslnt folderPath) 

/ o $ set files to [] 

/ $ q repeat with f ileName in fileList 

f to set type to getFileType ( folderPath & f ileName) 

/ / / if not {type starts "PICT") then 

/ / % append files, f ileName 

/ / £ end if 

/ t y end repeat 

/ / 5 return files 

/ / ^ end f ilesToConvert 

ft" 7 on quitNetScreen 

/ / f stopMovie() 

/ / i quit 

/ 7-0 end quitNetScreen 



/ 2- i on getStatus 

/Z7- global gFolderPath, gMode 

1 ^ if voidP (gMode) then 

/zV set gMode to "Done" 

/ Z 5 end if 

I Z(, set folderPath to gFolderPath & "Screen Saver Files:" 

/ 27 set status to gMode & ■ " & -i 

l isProcessRunning("MOSS") & " " & 

/ ^ isProcessRunning{ "c2gf ■ ) 

/3 c? if gMode = "FetchAndConvert" then 

I 3 / set fileList to filesln( folderPath) 

/ 3 2 repeat with f ileName in fileList 

/ 5 3 set status to status & RETURN & f ileName & RETURN & -i 

/ 3^/ getFileComment ( folderPath & f ileName) 

/ 3 5 end repeat 

/ L end if 

7 2 7 return status 

' 2 1 end getStatus 



/ 3 ? on ScriptDone 

/ 40 global gFolderPath, gMode 

/<// if gMode = "FetchAndConvert" then 

/ Vi replaceFilesKeepingComments (gFolderPath & "Temporary Files : converted: ■ , -i 

gFolderPath & "Screen Saver Files:") 

/ if 2 else 

; if gMode = "Convert" then 



I^S set files to f ilesIn(gFolderPath & "Temporary Files : downloaded : M ) 

/ repeat with f ileName in files 

ft/-/ set comment to getFileComment (gFolderPath & "Temporary Files : downloaded: " & 

f ileName) 

/¥f setFileComment (gFolderPath & "Tenporary Files : converted : " & f ileName, comment) 

/ ^ end repeat 

/ 50 replaceFilesKeepingComments (gFolderPath & "Temporary Files : converted: " , -i 

gFolderPath & "Screen Saver Files:") 
/ £ / end if 
/ 5z, end if 

/ 5 3 deleteContentOf Folder (gFolderPath & "Temporary Files : downloaded: " ) 
/ 5y deleteContentOf Folder (gFolderPath & "Temporary Files: temp: " ) 
/ ^5 deleteContentOf Folder (gFolderPath & "Temporary Files : converted: " ) 
1 5 G set gMode to "Done" 
1 5 7 activate () 
/ 5? end ScriptDone 

/5? on loadPreferences 

f(*0 global gFolderPath 

/6/ set prefPath to gFolderPath & "NetScreen.prefs" 

/6Z S et fileXObj to FileIO(mNew, "read", prefPath) 

/ & 3 set 1 to fileXObj (mReadLine) 

/ £V set the hilite of cast "on/off" to value (word 2 of 1) 

/ (*$ set 1 to fileXObj (mReadLine) 

/ set the text of cast "SleepDelay" to word 2 of 1. 

/ £7 set 1 to fileXObj (mReadLine) 

/ UQ set the text of cast "DisplayTime" to word 2 of 1 

/ C ? set 1 to fileXObj (mReadLine) 

/ 70 set the text of cast "hours" to word 2 of 1 

/ 7/ set the text of cast "minutes" to word 3 of 1 

7 7 £ set the text of cast "am/pm" to word 4 of 1 

/ 7 £ fileXObj (mDispose) 

/ 7y end loadPreferences 



/ 7 5 on savePref erences 
I 7 ^ global gFolderPath 

ill set prefPath to gFolderPath & "NetScreen.prefs" 
/ 7 f set fileXObj to FileIO(mNew, "write", prefPath) 

/7? fileXObj (mWriteString, "on/off " & the hilite of cast "on/off" & RETURN) 
/ go fileXObj (mWriteString, "SleepDelay * & the text of cast "SleepDelay" Sc RETURN) 
/ % I fileXObj (mWriteString, "DisplayTime " & the text of cast "DisplayTime" & RETURN) 
I %%. fileXObj (mWriteString, "DownloadTime " & the text of cast "hours" & " " & -1 

the text of cast "minutes" & " " & the text of cast "am/pm" & RETURN) 
/ g 5 fileXObj (mDispose) 
/ g y end savePref erences 

— Factory: MISC_X ID: 10001 

t 8 t> ~ Misc_X, Misc Utils XObject, vl.1.3 

/ gl —1 mNew 

' f t — S mBootName 

1 11 — S mSystemFolder 

/ 0 --S mPrefsFolder 

/ 91 —is mFileExists, fP 

/ <7 2- --ISS mCopyFile, sP, dP 

/ 93 ~IS mFolderExists, fP 0 

t 9*/ —IS mlnsureFolder, fP \(L9Qj^ 



— XS mDeleteFolder, fp. 
/ 96 — SS mFolderList, fP 
/ 17 — SSSSS mAsk, q, dR, bOk, bCan 
/fp —SSSSS mAnswer, q, bL, bM, bR 
/j 9 — IS mSpaceOnVol, vN 
Z*00 — x * mFlushActions 



p». 





global gRwObj 

on initRearWindow 

if objectP(gRwObj ) then 

gRwObj (mDispose) 
end if 

if createRwObject () >= 0 then 

gRwObj (mPatToWindow, -5) — Paint in back 

end if 
end initRearWindow 

on releaseRearWindow 

if objectP(gRwObj) then 
gRwObj (mDispose) 

end if 
end releaseRearWindow 

on createRwObject 

if not objectP(gRwObj) then 

— "M" indicates multiple monitors, "S" is for single monitor configuration. 

— ONLY use if there is not enough room for multiple monitors. 

— So f irst . . . let 's try it with multiple-monitor configuration: 
set gRwObj = RearWindow(mNew, M M M ) 

set error to value (gRwObj ) 
if error < 0 then 

gRwObj (mDispose) 

return error 
end if 

if the freeBlock < gRwObj (mGetMemoryNeeded) then 

— delete the object and create it again with a single-monitor config... 
if objectP(gRwObj) then 
gRwObj (mDispose) 

set gRwObj = RearWindow(mNew # "S") 
end if 

set error to value ( gRwObj ) 
if error < 0 then 
gRwObj (mDispose) 
return error 
end if 
end if 
end if 

return value ( gRwObj ) 
end createRwObject 




global gRwObj 

on initRearWindow 

if objectP(gRwObj) then 

gRwObj (mDispose) 
end if 

if createRwObject {) >= 0 then 

gRwObj (mPatToWindow, -5) — Paint in back 

end if 
end initRearWindow 

on releaseRearWindow 

if objectP(gRwObj) then 
. .-■ gRwObj (mDispose) 

end if 
end releaseRearWindow 

on createRwObject 

if not objectP(gRwObj) then 

— "M" indicates multiple monitors, M S B is for single monitor configuration. 

— ONLY use *S" if there is not enough room for multiple monitors. 

— So first. . .let's try it with multiple-monitor configuration: 
set gRwObj = RearWindow(mNew, "M") 

set error to value (gRwObj ) 
if error < 0 then 

gRwObj (mDispose) 

return error 
end if 

if the freeBlock < gRwObj (roGetMemoryNeeded) then 

" d fl ete the object and create it again with a single-monitor config... 
if objectP(gRwObj) then 
gRwObj (mDispose) 

set gRwObj = RearWindow(mNew, "S") 
end if 

set error to value (gRwObj) 
if error < 0 then 
gRwObj (mDispose) 
return error 
end if 
end if 
end if 

return value ( gRwObj ) 
end createRwObject 
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-factory callBackFactory 
-method mNew 
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" SendCardMessage " ) 
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"EvalExpr" ) 
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"StringLength" ) 
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4, 


"StringMatch" ) 
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w SendHCMessaae B ) 
"ZeroBytes" ) 
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6, 
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7 , 


" PasToZero ° ) 
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" ZeroToPas " ) 
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"StrToLong" ) 
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"StrToNum") 


me 


(mPut, 


11, 


"StrToBool'*) 
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-StrToExt") 
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"LongToStr") 
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"NumToStr") 
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"NumToHex** ) 
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16, 


"BoolToStr") 
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"ExtToStr" ) 
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"GetGlobal") 
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19, 


"SetGlobal") 
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"GetFieldByName" ) 
"GetFieldByNum" ) 
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"GetFieldBylD") 
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"SetFieldByName" ) 
-SetFieldByNum") 
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"SetFieldByld") 
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26, 


"StringEqual" ) 
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27, 


"ReturnToPas" ) 
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"ScanToReturn* ) 
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"FormatScript") 
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32, 


" ZeroTermHandle " ) 
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33, 


" PrintTEHandle ■ ) 
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"SendHCEvent") 
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"HCWordBreakProc" ) 
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"BeginXSound") 
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[mPut, 
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"EndXSound") 
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"RunHandler") 
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"ScanToZero") 
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"GetXResInfo") 
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"GetFilePath") 


me 


ImPut, 
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"FrontDocWindow" ) 


me 


^mPut, 
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-PointToStr") 


me 


!mPut, 
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"RectToStr") 
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"StrToPoint") 
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"StrToPoint") 
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47, 


"GetFieldTE") 


me 


mPut, 
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"SetFieldTE") 
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49, 


"GetObjectName") 
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"GetObjectScript" ) 
"SetObjectScript" ) 
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" StackNameToNum" ) 
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"Notify" ) 
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"SowHCAlert") 
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, "NewXWindow/GetNewXWindow" ) 
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mPut, 


101, "CloseXWindow") 
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102, "SetXWIdleTime") 


me 


mPut, 


103 , "XWHasInterruptCode" ) 

104, " Regis terXWMenu" ) 


me 


mPut, 



- me(mPut, 105, "BeginXWEdit/EndXWedit" ) 

- me(mPut, 106, "SaveXWScript" ) 

- me(mPut, 107, "GetCheckPoints" ) 

- me(mPut, 108, "SetCheckPoint" ) 

- me(mPut, 109, "XWAllowReEntrancy" ) 

- me(mPut, 110, "SendWindowMessage" ) 

- me(mPut, 111, "HideHCPalettes" ) 

- me(mPut, 112, "ShowHCPalettes" ) 

- me(mPut, 113, "XWAlwaysMoveHigh" ) 

- me(mPut, 200, "GoScript") 

- me(mPut, 201, "StepScript" ) 

- me(mPut, 202, "AbortScript" ) 

- me{mPut, 203, "CountHandlerlnfo" ) 

- me(mPut, 204, "GetHandlerlnfo" ) 

- me(mPut, 205, "GetVarlnfo" ) 

- me(mPut, 206, "SetVarValue" ) 

- me(mPut, 207, "GetStackCrawl" ) 

- me(mPut, 208, "TraceScript" ) 

-method mEvalExpr x 

- — put "mEvalExpr" && x 

- ~ if x = "cd fid M & QUOTE & "urlField" & QUOTE then 

- ~ return "tell application » & QUOTE & "Netscape" & QUOTE & " to make new window" 

- — else 

- if x = "the name of cd fid " & QUOTE & "urlField" & QUOTE then 

- — put "beep" 

- — return "urlField" 

- else 

- — if x = "the id of cd fid 

- — put "beep beep" 

- — — return 100 

- — end if 

- — end if 

- — end if 

- if word 1 of x = " " then 

return "tell me to activate" 

- end if 
-end mEvalExpr 



Sc QUOTE & "urlField" & QUOTE then 



-method mEvalExpr x 

- put "mEvalExpr" && x 

- if the length of x >= 10 then 

set s to char 1 to 10 of x 

if (s <> "the id of ") and (s <> "the name o") then 

return x 
end if 

- end if 
-end mEvalExpr 

-method mSendHCMessage x 
-put "mSendHCMessage" && x 

-method mSendCardMessage x 
-put "mSendCardMessage" && x 

-method mGetFieldByName card, name 
-put "mGetFieldByName" card name 

-method mGetFieldByNum card, Num 



-put "mGetFieldByNum" && card && num 

-method mGetFieldBylD card, id 
-put "mGetFieldBylD" card id 

-method mSetFieldByName card, name, value 

-put "mSetFieldByName" card name value 

-method mSetFieldByNum card, num, value 

-put "mSetFieldByNum" && card && num value 

-method mSetFieldBylD card, id, value 

-put "mSetFieldBylD" &7 card id value 

-method mGetFieldTE 

-put "mGetFieldTE" argl && arg2 arg3 

-method mUnknown which 

-put me(mGet, value (which) ) into callBackName 
-put "mUnknown:" && which "(" & -i 
- callBackName & " ) ° 
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/ property justLoaded : false 
z property folderPath : " M 



3 on run 

V dolt() 

5 set justLoaded to true 

C end run * 



7 on idle 

9 set mins to (time of (current date)) / minutes 

? set triggerMin to 0 

fo if mins > triggerMin + 30 then 

1 1 if justLoaded then 

1 z set justLoaded to false 

O end if 

/if else 

/5~ if not justLoaded and mins > triggerMin then 

/(a doltQ 

/ 7 set justLoaded to true 

n end if 

end if 

2^ end idle 



Z.I on dolt() 

1Z if folderPath = then 

^3 set folderPath to ((path to (the preferences folder)) as string) & "WebTrio Documents:" 

Zq end if 

^ ^ doDesktopDisplay() 
doNetscapeDisplay() 
% 7 doScreenSaverDisplay() 

I ? end dolt 



Z°) on doDesktopDisplay() 

3* set wasDeskPictureRunning to isProcessRunning("CLY7") 

if wasDeskPictureRunning then 

tell application "D^kPrc/we 11 to quit 
end if 

W set wasFrontierRunning to isProcessRunning("LAND") 

set fileList to (list folder of (folderPath & "For the Desktop:")) 
set urIList to {} 

repeat with fileName in fileList 

set urIListto getFileComment(alias (folderPath & "For the Desktop:" & fileName)) & urIList 
end repeat 



tfo if not wasFrontierRunning then 



Hi tell application "F/WiW* to quit 

Hj, end if 

set fileList to (list folder (folderPath & "For the Desktop:")) 

VV fetchAIIPictures(urll_ist, folderPath & "For the Desktop:", fileList) 

H5 convertToPictAIIPicturesln(folderPath & "For the Desktop:", fileList) 

^ if wasDeskPictureRunning then 

Hi tell application "DeskrYcKre/ to run 

H2 end if 

V? end doDesktopDisplay 

on doNetsacapeDisplay() 

57 set wasFrontierRunning to isProcessRunning("LAND") 

^ set fileList to (list folder of (folderPath & "For Netscape")) 

5" 3 set urIList to {} 

5/ repeat with fileName in fileList 

55 set ur| L'st to urIList & getFileComment(alias (folderPath & "For Netscape:" & fileName)) 

56 end repeat 

51 if not wasFrontierRunning then 

5$ tell application u F^ n tf er " to quit 

$1 end if 

tell application "Netscape Navigator™ 3.0" 

£ 1 make new document 

<£z end tell 



fetchAIIPictures(folderPath & "For Netscape:", "", false) 
end doNetsacapeDisplay 



on doScreenSaverDisplay() 

& £ end doScreenSaverDisplay 

4 "7 on fetchAIIPictures(urlList, folderPath, fileList) 

0 ? set wasNetscapeRunning to isProcessRunningfMOSS") 

(, <f tell application "Netscape Navigator™ 3.0" 

~> o set netscapeAlertApp to the alert application 

7 1 set alert application to "zzzz" - Asks Netscape not to display alert boxes 

7-2. end tell 

7 3> repeat with i from 1 to (length of urIList) 

7 *f set myURL to item i of urIList 

7 5 if folderPath * "" then 

76 set fileName to item i of fileList 

HI netscapeGetURL(myURL, (folderPath & fileName & "1"), 5, 300) 

■ 1 t else ' 

7? netscapeGetURL(myURL, "", 5, 300) 

*° end if 



V 



end repeat 



9ls if wasNetscapeRunning then 



6^ ^ 



tell application "Netscape Navigator™ 3.0 M 

JL set alert application to netscapeAlertApp - Resume Netscape alert boxes display handling 

*° end tell 

?L else 

* 7 tell application "Netscape Navigator™ 3.0" to quit 

t$ end If 

2*1 end fetchAIIPictures 



To on convertToPictAIIPicturesln(folderPath, fiieList) 



?/ set wasClip2Gif Running to isProcessRunning("c2gf") 

?Z set wasJPegViewRunning to isProcessRunning( ,, JVWR' , ) 

93 repeat with fileName in fiieList 

set fileAlias to (alias (folderPath & fileName)) 
?5 convertToPict(folderPath & fileName & "1", fileName & "1") 

7 6 «event ScTIExch» (alias (folderPath & fileName & "1")) given «class with»:(fileAlias) ' 

^7 «event ScTldele» (alias (folderPath & fileName & "1")) 

<fg end repeat 

9<? if not wasClip2GifRunning then 
100 tell application M clip2gif" to quit 

lo / end if 

tot if not wasJPegViewRunning then 

/<?3 tell application "JPeolW'' to quit 

/ *y end if 



toS end convertToPictAIIPicturesIn 



NETSCAPE RELATED ROUTINES 



in 



/o(* on netscapeGetURL(myLoc, destFile, nbOfTries, myTimeOut) 
/*7 set errCounter to 0 
log repeat while errCounter < nbOfTries 
fo ? tell application "Netscape Navigator™ 3.0" 

/ / o with timeout of myTimeOut seconds 

/ / / repeat while the busy of window 1 * 0 

/ / 1 end repeat 

/ / 3 set isLoaded to true 

/ / GetURL myLoc to (file destFile) 

/ / 5 set isLoaded to false 

//( ^ repeat while not isLoaded 

try 

the busy of window 1 
set isLoaded to true 
on error 
end try 
end repeat 
end timeout 
try 

if the file type of (info for (file destFile)) = "TEXT" then 
set errCounter to errCounter + 1 
«event ScTldele» destFile n 



return false no error 



. 1 3o 
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/33 end try 

/9V end tell 

1 5 ^ end repeat 
1 10 return true -- error 

/?7 end netscapeGetURL 



end if 
on error 

set errCounter to errCounter + 1 



l$g on «event WWW?PRBG» 
/?? return 1 

end «event WWW?PRBG» 

on «event WWW?PRMK» 
,ij2- return 0 
/V? end «event WWW?PRMK» 

/ /«/ on «event WWW?PREN»» 
/ V 5 set finished to true 
/ return 0 

IH7 end «event WWW?PREN» 



FINDER RELATED ROUTINES 

IH9 on isProcessRunning(procString) 

/ •/ repeat with processName in (list processes) 

' 5o if signature of (get process processName) = procString then 

'5i return true 

/ 5 z- end if 

/ 53 end repeat 

/ 5 */ return false 

/ 55 end isProcessRunning 



)5t on getFileComment(fileAlias) 

' 5 7 tell application u Fr©»f/ er " 

'St Ifile.getCommentl(fileAlias) 

151 end tell 

/ (, 0 end getFileComment 



PICTURE CONVERSION ROUTINE 



on convertToPict(filePath, fileName) 



tL, 1 

1 <, x- try -We check whether the file exits 
iu 3> 

!(, 5" 

ICC 



set fileType to the file type of (info for (file filePath)) 
on error 

return 
end try 



it 7 if fileType = -JPEG" then f^ 0 U 

I '* f tell application "XPejlW* ' 

U°\ try 



I ~? £> open {alias filePath} 

1 7 1 save document 1 in (alias filePath) as picture 

ill- close document 1 

it on error 

' 7 ^ end try 

/ 7 5 end tell 

/ 7 £> else 

HI if fileType = "GIFf" then 

/ l ? tell application "clip2gif" 

/7? try 

f t l°j open (file filePath) given «class fltp»:picture, «class kfil»:(file (filePath & "2")) 

«event ScTldele» (alias filePath) 

«event ScTIRena» (alias (filePath & "2")) given «class name»:fileName 
on error 
end try 
end tell 



I #5 



/ r ^ end if 

tit end if 
/ ? ^ end convertToPict 



